Het gebeurt mij regelmatig dat ik (na het printen van een sheet) meerder tabbladen heb geselecteerd en dat vervolgens vergeet te deselecteren. Dan ga ik verder met bewerken, en verknoei ik de sheet. Iemand een oplossing voor een waarschuwing o.i.d.?
"Dé grootste en gratis computerhelpdesk van Nederland"
-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
waarschuwing bij selectie meerdere tabbladen
- Onderwerp starter tetterus
- Startdatum
- Status
JEC.
Terugkerende gebruiker
- Lid geworden
- 27 feb 2019
- Berichten
- 4.317
- Office versie
- 365
Zoiets achter thisworkbook?
Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Application.ActiveWindow.SelectedSheets.Count > 1 Then
MsgBox "Meerdere sheets geselecteerd!", vbCritical, "Let op"
Cancel = True
End If
End Sub
Laatst bewerkt:
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.302
- Office versie
- Office 365
Selectedsheets printen en daarna selectie opheffen.
Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.OnTime Now, "thisworkbook.na_printen"
End Sub
Private Sub na_printen()
If ActiveWindow.SelectedSheets.Count > 1 Then Sheets(1).Select
End Sub- Status
