Código VBA ocultar hojas específicas, y bloquear para no eliminar o crear hojas con password
Apoyarme en una macro para ocultar hojas específicas con su nombre asignado, y dejar una sola hoja con un nombre específico (admin) activo, una vez que pulso el botón combobox1 dentro de un userform.
No debe permitir eliminar, renombrar y crear más hojas todo esto debe protegerse con una contraseña
1 Respuesta
Respuesta de James Bond
1
Prueba esta macro, el password es password y para regresar todo haz otra macro, copias y quitas las líneas sobre los códigos palomeados, luego quitas las palomas a eaos códigos y listo.
Sub Macro1() ' ' Macro1 Macro ' For Each HOJA In Worksheets NOMBRE = UCase(HOJA.Name) <> "ADMIN" If NOMBRE Then HOJA.Visible = False ' If NOMBRE Then HOJA.Visible = true Next HOJA ActiveWorkbook.Protect Password:="password", Structure:=True, Windows:=True 'ActiveWorkbook.unprotect Password:="password" End Sub
