23.03.2021, 09:06
Hallo,
vielen Dank für die Verlinkung. Aber leider klappt das bei mir nur bedingt...Irgendwo ist bei mir der Wurm drin. Manchmal fragt er nach dem Kennwort wenn ich ein Screenshot machen möchte [attachment=37867] und manchmal nicht UND wenn ich auf Blattschutz AUS klicke fragt er nicht immer nach dem Kennwort. [attachment=37865]
Folgende Codes habe ich nun...
DieseArbeitsmappe:
Option Explicit
Private Sub Workbook_Open()
Dim wksSheet As Worksheet
For Each wksSheet In ThisWorkbook.Worksheets
wksSheet.Protect UserInterfaceOnly:=True
Next wksSheet
Modul6 (Blattschutz):
Sub Blattschutz_AN()
For Each Sheet In ActiveWorkbook.Worksheets
Sheet.Protect Password:="1"
Next Sheet
End Sub
Sub Blattschutz_AUS()
For Each Sheet In ActiveWorkbook.Worksheets
Sheet.Unprotect
Next Sheet
End Sub
Modul5 (Screenshot):
Option Explicit
Sub TabelleExportierenAlsBild()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
ActiveSheet.Range("A1:T35").CopyPicture Appearance:=xlScreen, Format:=xlPicture
With ActiveSheet.ChartObjects.Add(0, 0, Range("A1:T35").Width, Range("A1:T35").Height).Chart
.Parent.Activate
.Paste
.Export "Y:\Pschl_Kalkulator\" & ActiveSheet.Range("C1").Value & ".png"
.Parent.Delete
End With
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub
Mega großen Dank schon mal im Voraus
vielen Dank für die Verlinkung. Aber leider klappt das bei mir nur bedingt...Irgendwo ist bei mir der Wurm drin. Manchmal fragt er nach dem Kennwort wenn ich ein Screenshot machen möchte [attachment=37867] und manchmal nicht UND wenn ich auf Blattschutz AUS klicke fragt er nicht immer nach dem Kennwort. [attachment=37865]
Folgende Codes habe ich nun...
DieseArbeitsmappe:
Option Explicit
Private Sub Workbook_Open()
Dim wksSheet As Worksheet
For Each wksSheet In ThisWorkbook.Worksheets
wksSheet.Protect UserInterfaceOnly:=True
Next wksSheet
Modul6 (Blattschutz):
Sub Blattschutz_AN()
For Each Sheet In ActiveWorkbook.Worksheets
Sheet.Protect Password:="1"
Next Sheet
End Sub
Sub Blattschutz_AUS()
For Each Sheet In ActiveWorkbook.Worksheets
Sheet.Unprotect
Next Sheet
End Sub
Modul5 (Screenshot):
Option Explicit
Sub TabelleExportierenAlsBild()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
ActiveSheet.Range("A1:T35").CopyPicture Appearance:=xlScreen, Format:=xlPicture
With ActiveSheet.ChartObjects.Add(0, 0, Range("A1:T35").Width, Range("A1:T35").Height).Chart
.Parent.Activate
.Paste
.Export "Y:\Pschl_Kalkulator\" & ActiveSheet.Range("C1").Value & ".png"
.Parent.Delete
End With
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub
Mega großen Dank schon mal im Voraus