Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Tabellen mit-...

Forumthread: Alle Tabellen mit-...

Alle Tabellen mit-...
13.01.2009 14:03:00
Walter
Gute Tag Zusammen,
ich möchte beim öffnen der Datei das alle Tabellen mit
ActiveSheet.ScrollArea = "A1:K5000"
versehen werden.
Das Problem in allen Tabellen ist der Schutz + VBA Schutz eingefügt.
Der Tabellenschutz lautet: ActiveSheet.Unprotect ("wwmb")
mfg Walter MB
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Tabellen mit-...
13.01.2009 14:59:00
Hoffi
Hallo Walter,
Code in Modul "Diese Arbeitsmappe"

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
With ws
.Unprotect "wwmb"
.ScrollArea = "A1:K5000"
.Protect "wwmb"
End With
Next ws
End Sub


Grüße
Hoffi

Anzeige
Danke Hoffi !!! -)
13.01.2009 15:48:35
Walter
Hallo Hoffi !!!
Danke geht doch !
Was macht Tennis, brauch mal einen zusätzlichen.
mfg Walter mb
AW: Danke Hoffi !!! -)
14.01.2009 08:54:00
Hoffi
Hallo Walter,
Tennis? spiele garkein Tennis.
Grüße
Hoffi
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige