Hallo,
ich habe folgendes Problem:
ich habe einen Fragebogen entworfen, der von verschiedenen Benutzern ausgefüllt werden soll. Dazu habe ich bei den Zellen, die beantwortet werden sollen, die Sperrung in der Formatierung aufgehoben und dann das Arbeitsblatt gesperrt. Damit können nur die von mir vorgesehenen Felder ausgefüllt werden.
Nach dem Ausfüllen muss ich die Eingaben kontrollieren. Wenn alles korrekt ausgefüllt ist, möchte ich das Arbeitsblatt für die Bearbeitung komplett sperren und abspeichern und eine Information auf dem Fragebogen sichtbar machen, dass das Arbeitsblatt jetzt komplett gesperrt ist. Diese Aktion soll nur mit einem (nur mir bekannten)
Passwort möglich sein. Falls ich im Nachhinein aber doch eine Veränderung einfügen will, muss ich das Arbeitsblatt wieder entsperren können (auch mit Passwort)
Ich habe folgendes gemacht:
2 Buttons im Arbeitsblatt und folgendes Makro :
Sub SpeichernAbschließen()
If Range("P1").Value = "Arbeitsblatt abgeschlossen" Then
MsgBox ("Arbeitsblatt bereits abgeschlossen")
Else
ActiveSheet.Unprotect
Range("A2").Value = "Arbeitsblatt abgeschlossen"
Cells.Select
Selection.Locked = True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
ActiveSheet.EnableSelection = xlNoSelection
Range("A1").Select
Worksheets("Reevaluation").Protect Passwort
ActiveWorkbook.Save
MsgBox ("Arbeitsblatt abgeschlossen und gespeichert!")
End If
End Sub
' == Funktion: Abhließen aufheben ==
Sub AbschließenAufheben()
If Range("P1").Value = "Arbeitsblatt offen" Then
MsgBox ("Arbeitsblatt bereits geöffnet")
Else
ActiveSheet.Unprotect
Range("A2").Value = "Arbeitsblatt offen"
Cells.Select
Selection.Locked = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
ActiveSheet.EnableSelection = xlUnlockedCells
Range("A1").Select
Worksheets("Reevaluation").Protect Passwort
MsgBox ("Arbeitsblatt wieder geöffnet!")
End If
End Sub
jetzt habe ich das Problem, dass das Makro mal nach dem
Passwort fragt und mal nicht. Kann mir jemand helfen, wie ich die Passwortabfrage bei beiden Makros sicher einbauen kann?
vielen Dank
Richard