Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblätter mit anderen Schreibschutzoptionen

Tabellenblätter mit anderen Schreibschutzoptionen
09.11.2013 11:57:40
mikey20
Hi
ich habe hier ein problem mit einigen Tabellenblättern.
Ich würde gerne in der workbook open gleich verschiedene
registerkarten reinschreiben mit unterschiedlichen
Schreibschutzoptionen.
Ich weiß leider nicht ob das möglich ist.
Ich habe ein Tabellenblatt mit Bilder angelegt dort sollte man nichts
auswählen können weder mit der rechten Maustaste noch sonst wie.
Ich habe schon den Makro Recorder benutzt und folgende Werte erhalten
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
End Sub
nur leider weiß ich nicht wie man das ganze beim starten so integriert.
das passwort ist. test
habe mal eine beispielmappe hochgeladen.
https://www.herber.de/bbs/user/88006.xlsm
und hier noch der makro code der in dieser arbeitsmappe eingefügt worden ist.
Option Explicit

Private Sub Workbook_Activate()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
Application.DisplayFormulaBar = False
End Sub

Private Sub Workbook_Deactivate()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", True)"
Application.DisplayFormulaBar = True
End Sub

Private Sub Workbook_Open()
Dim arr, i As Integer
arr = Array("Rechnungen", "Mahnungen", "Kunden")
Application.ScreenUpdating = False
For i = 0 To UBound(arr)
With Sheets(arr(i))
.Unprotect Password:="test"
.Range("C15").ClearContents
Application.Goto Reference:=.Range("A1"), Scroll:=True
.Protect Password:="test", Userinterfaceonly:=True, DrawingObjects:=True, _
Contents:=True, Scenarios:=True, AllowFiltering:=True
End With
Next i
Worksheets("Rechnungen").ScrollArea = "$A$1:$W$50"
Worksheets("Mahnungen").ScrollArea = "$A$1:$AP$450"
Worksheets("Kunden").ScrollArea = "$A$1:$AQ$450"
Sheets("Rechnungen").Select
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige