Speichern ohne Pfad und Passwort vergeben
12.07.2015 16:00:23
Jürgen
1. Wenn ich bei meinen Arbeitsblatt ein Passwort vergebe um die gesperrten Bereiche zu schützen kommt es zu Folgendes. Vergebe ein Password123 und speichere die Datei über SPEICHER UNTER , wenn ich die Datei wieder öffne wird das Passwort abgefragt.
Speichere ich die Datei aber über den CommandButton1 und gehe dann auf ÜBERPRÜFEN, BLATTSCHUTZ AUFHEBEN kann ich mit einen Klick den Schutz aufheben ohne das eine Passwort abgefragt wird.
2. Wie muss ich den Code umstellen, dass ich die Datei dort speichere wo ich sie geöffnet habe, also ohne Pfadangabe. Danke für die Hilfe.
Jürgen
Private Sub CommandButton1_Click() Range("A7:AK9,A13:AK15,A19:AK21,A25:AK27,A31:AK33,
A47: _AK49,A53:AK55,A59:AK61,A65:AK67").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Dim N1 As String, N2 As String, N3 As String
N1 = Range("F2").Value
N2 = Range("F3").Value
N3 = Range("AG4").Value
Dim Pfad As String
Pfad = "C:\_Daten\"
ActiveWorkbook.Save
'ActiveWorkbook.SaveAs Filename:=Pfad & N1 & N2 & N3 & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
CommandButton1.Enabled = False
End Sub