Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1036to1040
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige