prepare("SELECT * FROM productos WHERE id = ?"); $stmt->bind_param('i', $id); $stmt->execute(); $producto = $stmt->get_result()->fetch_assoc(); $stmt->close(); $db->close(); if (!$producto) { exit('Producto no encontrado'); } $slug = $producto['slug']; $precio = number_format($producto['precio'], 0, '', ''); $codigo = <<<'VBACODE' Private Const PROD As String = "{{SLUG}}" Private Const SAL As String = "{{SALT}}" Private Const PRE As String = "{{PRECIO}}" Private Const URLB As String = "https://e.taxlawbolivia.com/licenciasexcel/" Private Const PW As String = "4804" Private yaAviso As Boolean Private Sub Workbook_Open() If Activado() Then AbrirHojas Else CerrarHojas MsgBox "Archivo protegido." & vbCrLf & "Haz clic en cualquier celda para activar.", vbInformation, "boliviaimpuestos.com" End If End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Activado() Then Exit Sub If yaAviso Then Exit Sub yaAviso = True Dim pc As String pc = Left(Environ("COMPUTERNAME"), 8) Dim obj As Object Set obj = CreateObject("WScript.Shell") obj.Run URLB & "?producto=" & PROD & "&pc=" & pc & "&precio=" & PRE Dim c As String c = InputBox("1. Paga en la pagina web" & vbCrLf & "2. Ingresa la contrasena:", "boliviaimpuestos.com") If c = "" Then yaAviso = False Exit Sub End If If LCase(Trim(c)) = LCase(HacerClave(pc)) Then On Error Resume Next ThisWorkbook.Names("BIBK").Delete On Error GoTo 0 ThisWorkbook.Names.Add Name:="BIBK", RefersTo:="=""" & c & """", Visible:=False ThisWorkbook.Save AbrirHojas MsgBox "Activado!", vbInformation Else MsgBox "Contrasena incorrecta.", vbCritical yaAviso = False End If End Sub Private Function Activado() As Boolean On Error GoTo NoHay Dim v As String v = ThisWorkbook.Names("BIBK").RefersTo v = Replace(Replace(v, "=""", ""), """", "") Dim pc As String pc = Left(Environ("COMPUTERNAME"), 8) Activado = (LCase(v) = LCase(HacerClave(pc))) Exit Function NoHay: Activado = False End Function Private Function HacerClave(pc As String) As String Dim s As String s = pc & PROD & SAL Dim h1 As Long Dim h2 As Long h1 = 5381 h2 = 7919 Dim i As Long For i = 1 To Len(s) h1 = (h1 * 33 + Asc(Mid(s, i, 1))) Mod 65536 h2 = (h2 * 37 + Asc(Mid(s, i, 1))) Mod 65536 Next i HacerClave = LCase(Right("0000" & Hex(h1), 4) & Right("0000" & Hex(h2), 4)) End Function Private Sub CerrarHojas() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets On Error Resume Next ws.Unprotect Password:=PW ws.Protect Password:=PW On Error GoTo 0 Next ws End Sub Private Sub AbrirHojas() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets On Error Resume Next ws.Unprotect Password:=PW On Error GoTo 0 Next ws End Sub VBACODE; $codigo = str_replace(['{{SLUG}}', '{{PRECIO}}', '{{SALT}}'], [$slug, $precio, SALT_SECRETO], $codigo); ?> VBA - <?= htmlspecialchars($slug) ?>
← Volver al admin

Proteger:

Importante: Sigue los pasos en orden. El paso 1 es obligatorio para que el archivo quede protegido incluso si el usuario no habilita macros.

1 Proteger cada hoja del Excel

Antes de tocar el VBA, protege las hojas desde Excel:

  1. Abre tu archivo .xlsm en Excel
  2. Ve a la primera hoja
  3. Menu Revisar → Proteger hoja
  4. Escribe la contrasena: 4804 → Aceptar → Confirmar 4804
  5. Repite para TODAS las hojas del archivo
  6. Guarda el archivo
Sin este paso, cualquier persona que descargue el Excel y no habilite macros podra editar libremente las celdas.

2 Abrir el editor VBA: Alt + F11

En el panel izquierdo, doble clic en ThisWorkbook.

Pega TODO este codigo:

3 Proteger el codigo VBA

Herramientas → Propiedades de VBAProject → pestana Proteccion

Marca "Bloquear proyecto", contrasena: 4804

4 Guardar y subir

  1. Cierra VBA (Alt+F11)
  2. Guardar como → tipo "Libro habilitado para macros (.xlsm)"
  3. Sube el archivo al admin con el boton "Subir .xlsm"
Prueba final: Cierra y vuelve a abrir el archivo.
Debe salir el mensaje "Archivo protegido. Haz clic en cualquier celda para activar."
Si ves barra amarilla "Habilitar contenido", haz clic ahi primero.

Sin macros: Las celdas estan bloqueadas (no se pueden editar).
Con macros: Al hacer clic en cualquier celda se abre la pagina de pago.