Workbook open Probleme
19.08.2013 12:03:46
mikey
ich habe ein Problem ich habe hier im Forum hilfe bekommen, wie man ein Makro
aus tabelle2 in tabelle 1 anzeigt usw.
Das problem auf einmal tauchte der Fehler ungültiges bild auf hatte aber vorher funktioniert ich tippte auf das makro, das ist aber in ordnung und funktioniert einwandfrei. Das problem was ich habe ist in --> dieser Arbeitsmappe versteckt.
Ich möchte gerne beim starten das alle Tabellenblätter geschützt sind und das ein passwort vergeben wird, zusätzlich da ich ein suchfeld habe möchte ich natürlich
das es zuerst aus bestimmten tabellenblätter in einem gewissen zelleninhalt herausgelöscht wird, und immer beim starten aller tabellenblätter in A1 springt,
sobald ich dies ändere funktioniert mein makro wegen des
anzeigen des diagrammes nicht mehr. vielleicht könnt ihr mir da weiterhelfen.
Vielleicht kann man es so umstellen, das wenn man das file öffnet zuerst der inhalt
aus gewissen tabellenbereichen herausgelöscht wird und erst danach der schreibschutz für alle tabellenblätter eingestellt wird und das er nicht mehr so oft
hin und herspringt.
Option Explicit
Private Sub Workbook_Open()
Dim arr, i As Integer
arr = Array("Rechnungen", "Mahnungen", "Datum", "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", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFiltering:=True
End With
Next i
Application.ScreenUpdating = True
Sheets("Rechnungen").Select
End Sub
Private Sub delete()
ActiveSheet.Unprotect Password:="test"
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
Call wks.Protect(Password:="test", UserInterfaceOnly:=True, DrawingObjects:= _
False, _
Contents:=True, Scenarios:=True, AllowFiltering:=True)
Next
Worksheets("Rechnungen").ScrollArea = "$A$1:$AQ$450"
Worksheets("Mahnungen").ScrollArea = "$A$1:$AQ$450"
Worksheets("Kunden").ScrollArea = "$A$1:$X$147"
Worksheets("Daten").ScrollArea = "$A$1:$AQ$250"
If TypeOf ActiveSheet Is Worksheet Then _
Call Workbook_SheetActivate(ActiveSheet)
End Sub