Private Sub CommandButton1_Click()
Sheets("Muster1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True,Password:=getStrPasswort
Unload UserForm3
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'If CloseMode = vbFormControlMenu Then
' Cancel = True
' MsgBox "Sie können so nicht Beenden!" _
' & Chr(13) & Chr(13) & "Drücken Sie das zurück Button !"
' End If
'End Sub
Sub Starte_Zeit()
UserForm5.Caption = "Aktuelles Datum + akt. Zeit > " & _
Format(Now, "DD.MM.YYYY = hh:nn:ss") _
& " Altersstruktur - Menü" & _
" // Aktualisiert: " & getStrDatumZeit()
If UserForm5.Visible = True Or init = 1 Then
init = 0
Application.OnTime Now + TimeValue("00:00:01"), "Starte_Zeit"
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen