Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Option Explicit
Dim ps As String
Sub BestandOpslaan()
'Huidig bestand opslaan
Dim ws As Worksheet
'Huidig bestand opslaan
With Blad11
ps = InputBox("Huidige bestand wordt beveiligd opgeslagen. Voer aub een wachtwoord in.", vbOKCancel)
For Each ws In Sheets
ws.Protect ps
Next ws
ThisWorkbook.SaveAs .Range("J2") & "\" & .Range("F1") & "\" & .Range("J3") & "-" & .Range("F1"), 52
'Bestand opslaan onder een nieuw boekjaar
ThisWorkbook.SaveAs .Range("J2") & "\" & .Range("J4") & "\" & .Range("J3") & "-" & .Range("J4"), 52
.Unprotect
End With
End Sub
'Tabel Boekingen filteren en rijen verwijderen
Sub hsv()
With Blad5
.Unprotect ps
Application.DisplayAlerts = False
With .Cells(1).CurrentRegion
.AutoFilter 7, Array("ABNA Bank", "Kas", "Memoriaal"), 7
.Offset(1).Delete
.AutoFilter
End With
.Protect ps
End With
End Sub
'Kalender verplaatsen en aanpassen voor nieuwe jaar
Sub M_snb()
Blad8.Select
sn = Range("A2:B4")
Blad8.ListObjects(1).ListRows(1).Range.Resize(DateSerial(Year(sn(3, 1)), 12, 31) - sn(3, 1) + 1).Delete
Blad8.Cells(4, 1).Resize(DateSerial(sn(1, 2) + 1, 12, 31) - DateSerial(sn(1, 2), 1, 0)) = [index(text(date(B2,1,row(1:731)),"yyyy-mm-dd"),)]
End With
ActiveWorkbook.Save
End Sub
Option Explicit
Dim ps As String
Sub BestandOpslaan()
'Huidig bestand opslaan
Dim ws As Worksheet
'Huidig bestand opslaan
With Blad11
ps = InputBox("Huidige bestand wordt beveiligd opgeslagen. Voer aub een wachtwoord in.", vbOKCancel)
For Each ws In Sheets
ws.Protect ps
Next ws
ThisWorkbook.SaveAs .Range("J2") & "\" & .Range("F1") & "\" & .Range("J3") & "-" & .Range("F1"), 52
End With
'Bestand opslaan onder een nieuw boekjaar
ThisWorkbook.SaveAs .Range("J2") & "\" & .Range("J4") & "\" & .Range("J3") & "-" & .Range("J4"), 52
ps = InputBox("Beveiliging ongedaan maken in het nieuwe bestand. Voer aub een wachtwoord in.", vbOKCancel)
For Each ws In Sheets
ws.Unprotect ps
Next ws
End Sub
'Tabel Boekingen filteren en rijen verwijderen
Sub hsv()
With Blad5
Application.DisplayAlerts = False
[COLOR="#FF0000"]With .Cells(1).CurrentRegion[/COLOR]
.AutoFilter 7, Array("ABNA Bank", "Kas", "Memoriaal"), 7
.Offset(1).Delete
.AutoFilter
End With
End With
End Sub
'Kalender verplaatsen en aanpassen voor nieuwe jaar
Sub M_snb()
Blad8.Select
sn = Range("A2:B4")
Blad8.ListObjects(1).ListRows(1).Range.Resize(DateSerial(Year(sn(3, 1)), 12, 31) - sn(3, 1) + 1).Delete
Blad8.Cells(4, 1).Resize(DateSerial(sn(1, 2) + 1, 12, 31) - DateSerial(sn(1, 2), 1, 0)) = [index(text(date(B2,1,row(1:731)),"yyyy-mm-dd"),)]
End With
ActiveWorkbook.Save
End Sub
'Tabel Boekingen filteren en rijen verwijderen
Sub hsv()
Application.DisplayAlerts = False
With Blad5.Cells(1).CurrentRegion
.AutoFilter 7, Array("ABNA Bank", "Kas", "Memoriaal"), 7
.Offset(1).Delete
.AutoFilter
End With
End Sub
Sub BestandOpslaan()
'Huidig bestand opslaan
ps = InputBox("Het huidige bestand wordt beveiligd. Voer een wachtwoord in.", vbOKCancel)
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:=ps
Next ws
ActiveWorkbook.Save
'Bestand opslaan onder een nieuw boekjaar
'Eerst kijken of de map aanwezig is
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.folderexists(Range("J2") & "\" & Range("J4")) Then
'Maak een map
MkDir Range("J2") & "\" & Range("J4")
End If
ActiveWorkbook.SaveAs Range("J2") & "\" & Range("J4") & "\" & Range("J3") & "-" & Range("J4")
ActiveWorkbook.Unprotect ps
End Sub
'Tabel Boekingen filteren en rijen verwijderen
Sub BoekingenOpschonen()
Blad5.Select
Application.ScreenUpdating = False
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Range("G" & i) = "ABNA bank" Then
Rows(i).Delete
End If
If Range("G" & i) = "Kas" Then
Rows(i).Delete
End If
If Range("G" & i) = "Memoriaal" Then
Rows(i).Delete
End If
Application.ScreenUpdating = True
Next
End Sub
'Kalender verplaatsen en aanpassen voor nieuwe jaar
Sub KalenderAanpassen()
Blad8.Select
ActiveSheet.Unprotect ps
sn = Range("A2:B4")
Blad8.ListObjects(1).ListRows(1).Range.Resize(DateSerial(Year(sn(3, 1)), 12, 31) - sn(3, 1) + 1).Delete
Blad8.Cells(4, 1).Resize(DateSerial(sn(1, 2) + 1, 12, 31) - DateSerial(sn(1, 2), 1, 0)) = [index(text(date(B2,1,row(1:731)),"yyyy-mm-dd"),)]
ActiveWorkbook.Save
End Sub
Sub BoekingenOpschonen()
Blad5.Select
ActiveSheet.Unprotect "mijnPaswoord"
Application.ScreenUpdating = False
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
Select Case Range("G" & i).Value
Case "ABNA bank", "Kas", "Memoriaal"
Rows(i).Delete
End Select
Next
Application.ScreenUpdating = True
ActiveSheet.Protect "mijnPaswoord"
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.