AW: Beispielmappe
31.10.2007 11:51:00
Frank
hm..... irgendwie klappt das bei mir nicht....
Hier mal was in "DieserArbeitsmappe" bei mir steht:
Private Sub Workbook_Open()
UserForm1.Show
Sheets("Ausfüllblatt").Visible = xlVeryHidden
Application: Sheets("Planungsdatei").Activate
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.CommandBars("Visual Basic").Visible = False
Worksheets("Januar").EnableSelection = xlUnlockedCells
Worksheets("Februar").EnableSelection = xlUnlockedCells
Worksheets("März").EnableSelection = xlUnlockedCells
Worksheets("April").EnableSelection = xlUnlockedCells
Worksheets("Mai").EnableSelection = xlUnlockedCells
Worksheets("Juni").EnableSelection = xlUnlockedCells
Worksheets("Juli").EnableSelection = xlUnlockedCells
Worksheets("August").EnableSelection = xlUnlockedCells
Worksheets("September").EnableSelection = xlUnlockedCells
Worksheets("Oktober").EnableSelection = xlUnlockedCells
Worksheets("November").EnableSelection = xlUnlockedCells
Worksheets("Dezember").EnableSelection = xlUnlockedCells
Worksheets("Zielvereinbarungen").EnableSelection = xlUnlockedCells
Worksheets("Planungsdatei").EnableSelection = xlUnlockedCells
Worksheets("Ausfüllblatt").EnableSelection = xlUnlockedCells
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Control Toolbox").Visible = True
Application.CommandBars("Visual Basic").Visible = True
End Sub
folgendes steht bei mir bisher in "Userform1":
Private Sub UserForm_Activate()
Verzoegerung = Time + TimeSerial(0, 0, 20)
Application.OnTime Verzoegerung, "Ende"
End Sub
Private Sub UserForm_Click()
Application.OnTime Verzoegerung, "Ende", , False
Verzoegerung = Time + TimeSerial(0, 0, 20)
Application.OnTime Verzoegerung, "Ende"
Beep
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode 1 Then Cancel = 1
End Sub
Private Sub UserForm_Initialize()
CommandButton1.Enabled = False
Application.OnTime Now + TimeValue("00,00,05"), "Aktivieren"
End Sub
Private Sub CommandButton1_Click()
Me.Hide
End Sub
Hab es mit den Änderungen versucht aber es klappt irgendwie nicht. Wo könnte mein Fehler noch liegen?
Braucht ihr ggfs. noch mehr infos?
Danke und Gruß
Frank
