Opmaak sheet

[bascas]

Hallo, ik heb in deze sheet wat staan, maar wil graag dat alles eromheen grijs wordt en dat je er ook niet meer in kan klikken of gegegevens kan invoeren. Hoe doe ik dat, zonder eerst alles weg te moeten halen, want bij sheet waarbij het echt moet, is dat een te groot risico.
Groetjes Bas

 

[Cobbe]

Kijk eens bij Scrollarea, daar moet een en ander mee te doen zijn.

Cobbe

 

[trucker10]

een voorbeeld met de uitleg hoe ik het gedaan heb . wachtwoord bladbeveiliging is helpmij

Bij het tweede vb heb ik de headings weggehaald

 

[bascas]

Beadnkt voor het meedenken, maar het lukt me niet. Dit zijn de 2 vba projecten die er draaien, dus waar zou ik het dan bij moeten zetten?

Module 1

Option Explicit

Sub invoer_sorteren()
    Range("A20:M100").Sort Key1:=Range("A20"), Order1:=xlAscending, Header:=xlGuess, _
                         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A20").Select
End Sub

Sub Aanwezig()
    Dim n      As Long
    ActiveSheet.Unprotect
    Application.ScreenUpdating = False
    For n = 3 To 104
        If WorksheetFunction.CountIf(Range("B" & n & ":S" & n), "x") = 0 Then
            Rows(n).Hidden = True
        End If
    Next n
    Application.ScreenUpdating = True
    Range("A1:S104").Select
    Selection.PrintOut
    Cells.Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
    ActiveSheet.Protect
End Sub



Private Sub Workbook_Open()
Sheets("Blad1").ScrollArea = "$A$1:M$100"
End Sub

Module 2

Sub preview()
'
' preview Macro
' De macro is opgenomen op 22-1-2009 door Jansen.
'    Dim n      As Long
    ActiveSheet.Unprotect
    Application.ScreenUpdating = False
    For n = 3 To 100
        If WorksheetFunction.CountIf(Range("B" & n & ":S" & n), "x") = 0 Then
            Rows(n).Hidden = True
        End If
    Next n
    Application.ScreenUpdating = True
    Range("A1:S110").Select
    Selection.PrintPreview
    Cells.Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
    ActiveSheet.Protect
End Sub

 

[trucker10]

Beadnkt voor het meedenken, maar het lukt me niet. Dit zijn de 2 vba projecten die er draaien, dus waar zou ik het dan bij moeten zetten?

Je moet het in ThisWoorkBook zetten , daarna opslaan > AFSLUITEN en je bestand terug openen .

 

[trucker10]

hallo , je kan ook dit gebruiken range aanpassen volgens je behoefte
Private Sub Workbook_Open()
ActiveSheet.ScrollArea = "$A$6:B$24"
End Sub

 

[bascas]

Oke, het is gelukt,Bedankt voor zover, maar...ik heb na het eerste blad nog een aantal bladen (6 nl, de dagen van de week) Hoe krijg ik het bij die voor elkaar. Daar is de afmeting overigens anders van.

 

[Wigi]

Private Sub Workbook_Open()
WorkSheets("naamvanblad1").ScrollArea = "..."
WorkSheets("naamvanblad2").ScrollArea = "..."
WorkSheets("naamvanblad3").ScrollArea = "..."
WorkSheets("naamvanblad4").ScrollArea = "..."
WorkSheets("naamvanblad5").ScrollArea = "..."
WorkSheets("naamvanblad6").ScrollArea = "..."
WorkSheets("naamvanblad7").ScrollArea = "..."
End Sub

 

[bascas]

Helemaal goed. Toppie, bedankt:thumb: