Nochmalige Hilfe
05.11.2020 16:08:44
Rudolf
ich habe diesen Code hier, jetzt möchte ich, wenn eine Datei schreibgeschützt ( "Z:\r\Allgemein\A\U\U ALLE.xlsx", _) ist, die Meldung kommt, " Bitte später nochmal eingeben"
Jetzt darf Excel in keiner der beiden Dateien was eintragen. Wäre sowas möglich?
Private Sub CommandButton1_Click()
Dim lZeile As Long
Dim last As Integer, i As Integer
Dim wks2 As Worksheet
If ListBox1.ListIndex = -1 Then Exit Sub
If Trim(Textbox1.Text) = "" Then
MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
Else
If existiertMA(Trim(Textbox1.Text)) Then
If vbYes = MsgBox("Soll der Datensatz überschrieben werden?", vbCritical + vbYesNo, _
"Vorsicht") Then
'hier wird ein vorhandener Datensatz überschrieben. Das ist gefährlich wenn nur _
ein Name als Bedingung dafür notwendig ist.
'evtl. sollten da mehrere Prüfungen passieren.
DatensatzInTabelleSchreiben (ListBox1.List(ListBox1.ListIndex, 0))
End If
End If
End If
Application.ScreenUpdating = False
Set wks2 = Worksheets("Eingabe")
Worksheets("Eingabe").Activate
'wks2.Unprotect "2510"
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(last, 1).Value = UserForm1.Datum.Value
ActiveSheet.Cells(last, 3).Value = UserForm1.Zeit.Value
ActiveSheet.Cells(last, 4).Value = UserForm1.User.Value
ActiveSheet.Cells(last, 5).Value = UserForm1.Textbox1.Value
ActiveSheet.Cells(last, 6).Value = UserForm1.TextBox4.Value
ActiveSheet.Cells(last, 7).Value = UserForm1.ListBox2.Value
ActiveSheet.Cells(last, 12).Value = UserForm1.ListBox3.Value
ActiveSheet.Cells(last, 8).Value = UserForm1.Uhrzeitvon.Value
ActiveSheet.Cells(last, 9).Value = UserForm1.Uhrzeitbis.Value
ActiveSheet.Cells(last, 10).Value = UserForm1.Pause.Value
' wks2.Protect "2510"
'wks2.Protect "2510"
'wks2.Unprotect "2510"
Workbooks.Open Filename:= _
"Z:\r\Allgemein\A\U\U ALLE.xlsx", _
UpdateLinks:=0
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(last, 1).Value = UserForm1.Datum.Value
ActiveSheet.Cells(last, 3).Value = UserForm1.Zeit.Value
ActiveSheet.Cells(last, 4).Value = UserForm1.User.Value
ActiveSheet.Cells(last, 5).Value = UserForm1.Textbox1.Value
ActiveSheet.Cells(last, 6).Value = UserForm1.TextBox4.Value
ActiveSheet.Cells(last, 7).Value = UserForm1.ListBox2.Value
ActiveSheet.Cells(last, 12).Value = UserForm1.ListBox3.Value
ActiveSheet.Cells(last, 8).Value = UserForm1.Uhrzeitvon.Value
ActiveSheet.Cells(last, 9).Value = UserForm1.Uhrzeitbis.Value
ActiveSheet.Cells(last, 10).Value = UserForm1.Pause.Value
ActiveWorkbook.Save
ActiveWindow.Close
If Uhrzeitvon.Text = "" Then
MsgBox "Sie haben vergessen die Uhrzeit von einzugeben!"
Uhrzeitvon.SetFocus 'Cursor wieder in die TextBox setzen
Exit Sub
End If
If Uhrzeitbis.Text = "" Then
MsgBox "Sie haben vergessen die Uhrzeit bis einzugeben!"
Uhrzeitbis.SetFocus 'Cursor wieder in die TextBox setzen
Exit Sub
End If
MsgBox " Daten wurden übermittelt !!!"
End Sub
Anzeige