Gesperrte zellen nach erneutem öffnen auswählbar
30.05.2004 13:49:41
Manuel
ich habe eine Excel-Datei (nein, sowas.. ;-)) und habe einige Zellen "Nicht gesperrt" und "Ausgeblendet", weil man die bearbeiten können soll, der Rest ist "Gesperrt" und "Ausgeblendet".
Wenn ich jetzt die Datei über den VBA-Button "Speichern" speichere und dann Excel schließe und die Datei neu öffne, ist das so, dass ich die gesperrten Zellen wieder anwählen kann. Man kann sie zwar nicht bearbeiten, aber auswählen..
Wie kann ich das unterbinden?
Ich möchte, das wirklich NUR die nicht gesperrten Zellen auswählbar sind..
Code Button:
Private Sub Speichern_Click()
Call save
End Sub
------------------------------------------------------------------
Private Function save()
ActiveSheet.Protect ("ABC")
Dim ort
Dim name
ort = InputBox("Speichern unter...", "Speicherort", "C:\")
name = InputBox("Dateiname:", "Dateiname", "SGN-Rohstoffberechnung")
ActiveWorkbook.SaveAs Filename:= _
ort & name & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Range("C7").Select
ActiveSheet.Protect ("ABC")
End Function
(Datei: https://www.herber.de/bbs/user/6935.xls)
Ich bedanke mich schon im voraus..
MfG
Manuel