Estoy aprendiendo a programar macros en LibreOffice y me encuentro con el siguiente problema:
Estoy programando la macro para bloquee y desbloquee la pagina mediante una contraseña. El problema que me sale al ejecutar la macro es que la hoja se desbloquea solo cuando no se introduce ninguna contraseña en el InputBox y la contraseña que introduzco en codigo me marca como contraseña incorrecta.
De antemano muchas gracias por su ayuda.
Les dejo el codigo para que me puedan echar una mano.
Saludos.
Código: Seleccionar todo
Sub ProtegerHoja()
Dim oHojaActiva As Object
Dim x As Object
oHojaActiva = StarDesktop.CurrentComponent
if oHojaActiva.supportsService("com.sun.star.sheet.SpreadsheetDocument") Then
for each x in ThisComponent.Sheets()
x.Protect( "Fernando" )
next
MsgBox "La hoja se ha protegido correctamente"
end if
End Sub
Sub DesprotegerHoja()
Dim oHojaActiva As Object
Dim x As Object
Dim pass As String
oHojaActiva = StarDesktop.CurrentComponent
pass = InputBox ("¿Cual es la clave?")
if Fernando <> pass then
MsgBox "Contraseña incorrecta"
else
oHojaActiva.supportsService("com.sun.star.sheet.SpreadsheetDocument")
for each x in ThisComponent.Sheets()
x.UnProtect( "Fernando" )
next
MsgBox "Hoja desprotegida"
end if
End Sub