AW: Schreibschutz einer Arbeitsmappe - Teil2
13.04.2006 17:56:07
Torsten
Hallo,
mein beenden button ist mit vollgendem Makro unterlegt:
Sub beenden()
Dim Antwort%
Dim Frage As String
Dim ctrl As CommandBarPopup
Dim i As Integer
Msg = "Wollen Sie Crosspromotion 2006 ® schließen?"
Select Case MsgBox(Msg, vbInformation + vbYesNoCancel)
Case vbYes:
Application.ScreenUpdating = False
Sheets("Verlauf").Unprotect Password:="ndr"
zellnr = Range("Verlauf!D1")
If zellnr = 1000 Then Range("Verlauf!A2:A1000").ClearContents
uname = Application.Username
Range("Verlauf!A" & zellnr) = uname
Range("Verlauf!B" & zellnr) = Date
Range("Verlauf!C" & zellnr) = Time
Sheets("Verlauf").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="ndr"
Application.ScreenUpdating = True
Call Menü_zurücksetzen
Application.ScreenUpdating = False
Sheets(Array("Beginn", "Ende", "graphischG", "graphischE", "insgesamt", "insgesamtE", "insgesamtÜ", "insgesamtG", "LFH HH", "LFH MV", "LFH NDS", "LFH SH", "NDR 2", "NDR Info", "NDR Kultur", "N-JOY", "NDR FS", "NDR FS LFH", "WerWen")).Select
ActiveWindow.Zoom = 100
For i = 1 To Sheets.Count
Sheets(i).Visible = False
Sheets("Beginn").Visible = True
Sheets("Ende").Visible = True
Next i
Sheets("Ende").Select
Application.ScreenUpdating = True
Application.DisplayFullScreen = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Case vbNo: Call Nein
Case vbCancel: Call Abbruch
End Select
End Sub
Danke für deine Hilfe
Grüße Torsten