1. Home
  2. Detail

@ahmed.ahmad979:

Ahmed Ahmad
Ahmed Ahmad
Open In TikTok:
Region: PK
Wednesday 28 October 2026 03:11:43 GMT
1450
154
26
2

Music

Download

No Watermark .mp4 (1.18MB) No Watermark(HD) .mp4 (1.18MB) Watermark .mp4 (0MB) Music .mp3

Comments

inamulhaq5025
inam ul haq :
MashaAllah Allah pak sehat dy ameen
2026-10-28 09:46:54
0
rao.usman22
Rao Usman :
Allah tujhe lambi jindagi dete Hain wali jindagi ata farmae mashallah Badi Khushi ki baat hai Mubarak ho aapko
2026-10-28 05:02:37
0
zaheer.dhuddi1
Gulfam 😈 Dhuddi 81Ala💪💪👀 :
Allah aapko salamat rakhe
2026-10-28 08:13:22
0
sharafatdogar05
Sharafat Dogar :
:ماشاءاللہ اللہ تعالیٰ آپ کو سلامت رکھے آمین بھائی جان
2026-10-28 08:50:23
0
kashibaloch_007
khan :
mashalla Allah umra daraz kare
2026-10-28 03:17:40
0
syadbabralisha
Syed Babar Ali Naqvi Pk 512 :
ماشاءاللہ اللہ تعالیٰ آپ کو سلامت رکھے آمین بھائی جان
2026-10-28 07:06:45
0
altaf.dhuddi.6kb
Altaf dhuddi 6kb :
🥰🥰🥰🥰🥰
2026-10-28 06:23:07
1
hassan.ali.saeedi
Hassan Ali saeedi dhuddi :
🥰🥰🥰🥰🥰🥰
2026-10-28 11:32:52
0
itx__ajmal___dogar
Ajmal Dogar :
🥰🥰🥰
2026-10-28 04:35:35
0
haroon.moisan
haroon moisan :
🥰🥰🥰
2026-10-28 11:05:25
0
shafiqdogar750
shafiqdogar750 :
🤲🤲🤲🤲🤲🤲
2026-10-28 10:20:17
0
razaq3231
Abdul Razaq Dogger👑😈🤘🦁🦅 :
🤲🤲🤲
2026-10-28 09:59:10
0
user824134816
DC khokhar🇵🇰 :
🥰🥰🥰
2026-10-28 09:49:32
0
saeedahmad9550
Saeed Ahmad :
🥰🥰🥰
2026-10-28 09:45:16
0
pakpattani.larka
❤️S💕H💕A💕B💕A💕N❤️ :
🥰🥰🥰
2026-10-28 09:00:43
0
12345yfsg
Ali Hadar Joyia :
♥️♥️♥️
2026-10-28 09:00:41
0
babafreed02
🖤🖤🖤 :
🤲🤲🤲🤲
2026-10-28 08:51:17
0
malikraja256
Malik Iqbal 786 :
[Hands open][Hands open][Hands open][Hands open][Hands open][Hands open][Hands open][Hands open][Hands open]
2026-10-28 06:21:37
0
dhuddikhan781
سامی خان پاکپتن آلہ 🥂🖤 :
❤️❤️❤️
2026-10-28 05:38:35
0
ashraf_g72
ashraf_g72 :
🥺🥺🥺
2026-10-28 05:29:20
0
hassan.ali.saeedi
Hassan Ali saeedi dhuddi :
🥰🥰🥰
2026-10-28 11:32:35
0
saeedahmad9550
Saeed Ahmad :
🥰🥰🥰
2026-10-28 04:31:29
0
salman.dogar16
❤️سردار سلمان فرید ڈوگر❤️ :
❤️❤️❤️
2026-10-28 04:30:13
0
arfan.ali0146
arfan ali :
♥️♥️♥️
2026-10-28 03:54:51
0
a.king.gee.07866
a king gee 0786 :
🥰🥰🥰
2026-10-28 03:43:57
0
To see more videos from user @ahmed.ahmad979, please go to the Tikwm homepage.

Other Videos

😁 . . . . . . . #shehzeen #Love #smile #viral
😁 . . . . . . . #shehzeen #Love #smile #viral
#pyfツviral_❤ #elbruso #fypシ #fyp #p
#pyfツviral_❤ #elbruso #fypシ #fyp #p
#foryou #explore #viral
#foryou #explore #viral
🫀
🫀
Respuesta a @faxJh 💙 te dejo el tutorial y aquí la macro 🙌🏼 puedes encontrar esta y otros elementos para Dashboard en mi Toolkit para Dashboards en EXCEL😊 Estas macros pegalas en un nuevo Módulo 👇🏼 Sub Ocultar() Dim hoja As Worksheet Dim hojaActiva As String ' Guardamos el nombre de la hoja que queremos mantener visible ' (Excel obliga a que siempre haya al menos una hoja visible) hojaActiva = ActiveSheet.Name ' Recorremos todas las hojas del libro For Each hoja In ThisWorkbook.Worksheets If hoja.Name <> hojaActiva Then hoja.Visible = xlSheetVeryHidden End If Next hoja MsgBox hojaLogin Then hoja.Visible = xlSheetVeryHidden End If Next hoja ' 3. Limpiar celdas (Asegúrate de que sean estas celdas) Range("K22, K27").ClearContents Application.ScreenUpdating = True On Error GoTo 0 MsgBox "Sesión cerrada automáticamente por seguridad.", vbInformation, "Bienvenido" End Sub #Excel #Dashboards #fypシ゚viral🖤tiktok " width="135" height="240">
Respuesta a @faxJh 💙 te dejo el tutorial y aquí la macro 🙌🏼 puedes encontrar esta y otros elementos para Dashboard en mi Toolkit para Dashboards en EXCEL😊 Estas macros pegalas en un nuevo Módulo 👇🏼 Sub Ocultar() Dim hoja As Worksheet Dim hojaActiva As String ' Guardamos el nombre de la hoja que queremos mantener visible ' (Excel obliga a que siempre haya al menos una hoja visible) hojaActiva = ActiveSheet.Name ' Recorremos todas las hojas del libro For Each hoja In ThisWorkbook.Worksheets If hoja.Name <> hojaActiva Then hoja.Visible = xlSheetVeryHidden End If Next hoja MsgBox "Se ha cerrado la sesión" End Sub Sub Mostrar() Dim hoja As Worksheet Dim usuario As String Dim password As String Dim loginValido As Boolean Dim hojaLogin As String ' Guardamos el nombre de la hoja actual (donde están las celdas k22 y k27) hojaLogin = ActiveSheet.Name Application.ScreenUpdating = False usuario = Range("K22").Value password = Range("K27").Value loginValido = False If (usuario = "admin" And password = "123") Or _ (usuario = "juan" And password = "abc") Or _ (usuario = "maria" And password = "456") Or _ (usuario = "pedro" And password = "789") Or _ (usuario = "lucia" And password = "xyz") Then loginValido = True End If If loginValido Then ' Hacemos todas las hojas visibles For Each hoja In ThisWorkbook.Worksheets hoja.Visible = xlSheetVisible Next hoja ' Forzamos el regreso a la hoja de login Sheets(hojaLogin).Select MsgBox "Ha iniciado sesión correctamente.", vbInformation, "Seguridad" Range("K22, K27").ClearContents Else MsgBox "Usuario o contraseña incorrectos.", vbCritical, "Error de Acceso" End If End Sub 👇🏼Está macro pégala en Thisworkbook: Private Sub Workbook_Open() Dim hoja As Worksheet Dim hojaLogin As String ' CONFIGURACIÓN: Ajusta el nombre exacto de tu hoja hojaLogin = "Inicio" On Error Resume Next ' Evita que la macro se detenga si hay un error menor Application.ScreenUpdating = False ' 1. Hacer visible la hoja de Inicio primero (obligatorio antes de ocultar el resto) Sheets(hojaLogin).Visible = xlSheetVisible Sheets(hojaLogin).Select ' 2. Ocultar todas las demás de forma "Very Hidden" For Each hoja In ThisWorkbook.Worksheets If hoja.Name <> hojaLogin Then hoja.Visible = xlSheetVeryHidden End If Next hoja ' 3. Limpiar celdas (Asegúrate de que sean estas celdas) Range("K22, K27").ClearContents Application.ScreenUpdating = True On Error GoTo 0 MsgBox "Sesión cerrada automáticamente por seguridad.", vbInformation, "Bienvenido" End Sub #Excel #Dashboards #fypシ゚viral🖤tiktok
#🦅
#🦅

About

Legal