Moin,
Ich möchte diese Makro von Autoit aus ausführen.
Code
Sub BlattSchuetzenEin()
Dim I
For I = Worksheets(1).Index To Worksheets.Count
With Worksheets(I)
.Protect UserInterfaceOnly:=True, Contents:=True, DrawingObjects:=False, _
Password:="Passwort"
.EnableOutlining = True
End With
Next
End Sub
Bis hier ist alles klar. Das Excelblatt wird geöffnet und kann bearbeitet werden. danach soll das obige Makro gestartet werden.
Code
Local $bVisible = True
Local $bReadOnly = False
Local $sWritePassword_Ab = "passwort"
Local $oExcelAT = _Excel_Open(False)
Local $BoExcelAT = _Excel_BookOpen($oExcelAT, $TV_Speichern_Path_, $bReadOnly, $bVisible)
If @error > 0 Then
MsgBox(0 + 262144 + $MB_SETFOREGROUND + 64, "", "Konnte nicht geöffnet werden")
Return
EndIf
$oExcelAT.Activesheet.Unprotect($sWritePassword_Ab)
Alles anzeigen
Habe es so versucht, klappt aber leider nicht.
Code
With $BoExcelAT.ActiveSheet
.DrawingObjects = False
.Contents = True
.Scenarios = True
.UnProtect("Passwort")
EndWith
Könnt ihr mir helfen?
Gruß