Como guardar información con Macro en una bdd que esta bloqueada

tengo un botón con una maro asignada que me valida los campos que necesito guardar y que no están en blanco, pero la base de datos donde guarda la información esta bloqueada y no me permite guardar la información. Esta es la macro:

Sub Validar_AlHacerClic()
'
' Private Sub Workbook_AfterSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'
Sheets("PLANILLA").Select
If Range("D3") = "" Or Range("K5") = "" Or Range("D21") = "" Or Range("D25") = "" Or Range("F29") = "" Or Range("K22") = "" Or Range("K24") = "" Or Range("K26") = "" Then
MsgBox "Hay celdas vacías- no se puede guardar"
Cancel = True
Call Guardar_borrar
End If
End Sub
Sub Guardar_borrar()
'
' Guardar_borrar Macro
' guardar la información y borrar la planilla
'
'
ActiveWindow.SmallScroll Down:=60
Sheets("BDD").Select
Range("B2:AC2").Select
Selection.Insert Shift:=xlDown
Sheets("PLANILLA").Select
Range("E46:E60").Select
Selection.Copy
Sheets("BDD").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("PLANILLA").Select
Range("D3:E3").Select
Selection.ClearContents
Range("K5:L5").Select
Selection.ClearContents
Range("D21:D22").Select
Selection.ClearContents
Range("D25:D26").Select
Selection.ClearContents
Range("K22:K23").Select
Selection.ClearContents
Range("K26:K27").Select
Selection.ClearContents
Range("F29:F30").Select
Selection.ClearContents
Range("J11:J16").Select
Selection.ClearContents
End Sub

Espero sus respuestas. Gracias.