Unprotect

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 97
nach unten

Betrifft: Unprotect
von: Rainer K.
Geschrieben am: 02.05.2002 - 12:35:33

Hallo Forum !
In folgendem Code meckert mir Excel an das die UNPROTECT Methode falsch sei.

Warum ?


Private Sub DateiSpeichern_Click()
    Application.DisplayAlerts = False
    Dim Name As String
    Name = Cells(7, 2).Value
    Dim Kopie As String
    Kopie = Cells(7, 1).Value
    ActiveSheet.Unprotect ("raki")
    ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\Betriebsbuch\" & Kopie & ".xls"
    Range("A3:D8").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    'Anwahl Button: Öffnen !
    On Error Resume Next
        ActiveSheet.Shapes("CommandButton3").Select
        Selection.Cut
    ' Anwahl Auswahlfeld: Schwimmbecken
        ActiveSheet.Shapes("ComboBox1").Select
        Selection.Cut
        Range("G11").Select
    ActiveWorkbook.Save
    ActiveSheet.Protect ("raki") 'DrawingObjects:=True, Contents:=True, Scenarios:=True
    Workbooks.Open FileName:="C:\Eigene Dateien\Betriebsbuch\" & Name + ".xls", ReadOnly:=False
    Application.DisplayAlerts = True
End Sub

Gruß Rainer

nach oben   nach unten

Re: Unprotect
von: Rainer3
Geschrieben am: 02.05.2002 - 14:16:08

Hallo Rainer,

ändere mal
ActiveSheet.Unprotect ("raki")
in
ActiveSheet.Unprotect Password:="raki"
ebenso den Protect-Befehl.

Gruß
Rainer

nach oben   nach unten

Re: Unprotect
von: Rainer K.
Geschrieben am: 02.05.2002 - 14:52:12

Hallo Namensvetter !

Vielen Dank für den Tipp

Gruß
Rainer


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Selektiere NUR tätsächliche Datensätze"